home *** CD-ROM | disk | FTP | other *** search
/ Haight-Ashbury in the Sixties / Haight-Ashbury in the Sixties (1996)(Rockument)(Disc 1 of 2)[Mac-PC].iso / mac / MAIN / TUNEIN / TURNON / SHARED.DIR / 00554_Script_movieStep handlers < prev    next >
Text File  |  1995-05-31  |  2KB  |  50 lines
  1. -- gMovieCount contains number of current movie in the playlist
  2. -- gPlaylistMasterList is a list containing the entire playlist
  3. -- AutoPlayMode is ON for autoplay active, OFF for autoplay inactive
  4. -- gMainMovie contains movie and pathname back to main menu screen
  5. -- J. Collins - added code to switch timeline button to tune in return
  6. -- button when called from roll your own show. Modified tune in return code to
  7. -- return to the roll your own section of tune in with custom playlist intact.
  8. -- modified code to return to Turn On intro when playing the complete show from turn on
  9.  
  10. on goNextMovie
  11.   global gMovieCount, gPlaylistMasterList, AutoPlayMode,gMainMovie, searchShow, rolledShow, completeShow
  12.   if count (gPlaylistMasterList) > gMovieCount then
  13.     put getAt (gPlaylistMasterList, gMovieCount + 1) into nextMovie
  14.     go to movie nextMovie
  15.     set gMovieCount = gMovieCount + 1
  16.   else
  17.     if rolledShow = true then go to frame "RYO Return" of movie gMainMovie
  18.     if searchShow = true then go to frame "Search Return" of movie gMainMovie
  19.     if completeShow = true  then go to frame "turn on return" of movie gMainMovie
  20.     set gMovieCount = 0
  21.   end if
  22. end goNextMovie
  23.  
  24. -----
  25.  
  26. on goPreviousMovie
  27.   global gMovieCount, gPlaylistMasterList, AutoPlayMode,gMainMovie, searchShow, rolledShow, completeShow
  28.   if  gMovieCount > 1 then   
  29.     put getAt (gPlaylistMasterList, gMovieCount - 1) into previousMovie
  30.     go to movie previousMovie
  31.     set gMovieCount = gMovieCount - 1
  32.   else
  33.     if rolledShow = true then go to frame "RYO Return" of movie gMainMovie
  34.     if searchShow = true then go to frame "Search Return" of movie gMainMovie
  35.     if completeShow = true then go to frame "turn on return2" of movie gMainMovie
  36.     set gMovieCount = 0
  37.   end if 
  38. end goPreviousMovie
  39.  
  40. -----
  41.  
  42. on setAutoPlay
  43.   global AutoPlayMode
  44.   if AutoPlayMode = "OFF" then 
  45.     set AutoPlayMode = "ON"
  46.   else
  47.     set AutoPlayMode = "OFF"
  48.   end if
  49. end setAutoPlay
  50.